/ Archive Magazine CD 1995 / Archive Magazine CD 1995.iso / discs / prog_disc / volume_2 / issue_12 / extras / astronomy / parallax

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 19 20 f4 20 20 | 2a 2a 20 20 3e 50 41 52 |.... .  |**  >PAR|
|00000010| 41 4c 4c 41 58 20 20 2a | 2a 0d 00 14 06 20 db 0d |ALLAX  *|*.... ..|
|00000020| 00 1e d0 20 f1 27 27 8a | 35 29 3b 22 54 68 69 73 |... .''.|5);"This|
|00000030| 20 72 6f 75 74 69 6e 65 | 20 63 6f 6e 76 65 72 74 | routine| convert|
|00000040| 73 20 74 68 65 20 67 65 | 6f 63 65 6e 74 72 69 63 |s the ge|ocentric|
|00000050| 20 68 6f 75 72 2d 61 6e | 67 6c 65 20 61 6e 64 20 | hour-an|gle and |
|00000060| 64 65 63 6c 69 6e 61 74 | 69 6f 6e 20 74 6f 20 20 |declinat|ion to  |
|00000070| 20 20 20 20 20 20 20 20 | 20 20 20 20 74 68 65 20 |        |    the |
|00000080| 61 70 70 61 72 65 6e 74 | 20 68 6f 75 72 2d 61 6e |apparent| hour-an|
|00000090| 67 6c 65 20 61 6e 64 20 | 64 65 63 6c 69 6e 61 74 |gle and |declinat|
|000000a0| 69 6f 6e 2c 20 61 6e 64 | 20 76 69 63 65 20 76 65 |ion, and| vice ve|
|000000b0| 72 73 61 2c 20 6d 61 6b | 69 6e 67 20 20 20 20 20 |rsa, mak|ing     |
|000000c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 61 6c 6c 6f |        |    allo|
|000000d0| 77 61 6e 63 65 20 66 6f | 72 20 67 65 6f 63 65 6e |wance fo|r geocen|
|000000e0| 74 72 69 63 20 70 61 72 | 61 6c 6c 61 78 2e 22 0d |tric par|allax.".|
|000000f0| 00 28 06 20 3a 0d 00 32 | 1a 20 dd a4 44 45 47 28 |.(. :..2|. ..DEG(|
|00000100| 57 29 3d 35 2e 37 32 39 | 35 37 38 45 31 2a 57 0d |W)=5.729|578E1*W.|
|00000110| 00 3c 1b 20 dd a4 52 41 | 44 28 57 29 3d 31 2e 37 |.<. ..RA|D(W)=1.7|
|00000120| 34 35 33 32 39 45 2d 32 | 2a 57 0d 00 46 0f 20 de |45329E-2|*W..F. .|
|00000130| 20 46 4c 41 47 28 31 31 | 29 0d 00 50 18 20 f1 3a | FLAG(11|)..P. .:|
|00000140| 46 4c 41 47 28 30 29 3d | 31 3a 54 50 49 3d 32 2a |FLAG(0)=|1:TPI=2*|
|00000150| af 0d 00 5a 21 20 f1 27 | 27 22 43 6f 72 72 65 63 |...Z! .'|'"Correc|
|00000160| 74 69 6f 6e 20 66 6f 72 | 20 70 61 72 61 6c 6c 61 |tion for| paralla|
|00000170| 78 22 0d 00 64 06 20 f1 | 0d 00 6e 17 20 e7 20 46 |x"..d. .|..n. . F|
|00000180| 4c 41 47 28 31 31 29 3d | 31 20 8c 8d 74 7e 40 0d |LAG(11)=|1 ..t~@.|
|00000190| 00 78 30 20 e8 22 47 65 | 6f 67 2e 20 6c 6f 6e 67 |.x0 ."Ge|og. long|
|000001a0| 69 74 75 64 65 20 20 28 | 57 20 6e 65 67 3b 20 44 |itude  (|W neg; D|
|000001b0| 2c 4d 2c 53 29 22 3b 58 | 44 2c 58 4d 2c 58 53 0d |,M,S)";X|D,XM,XS.|
|000001c0| 00 82 1a 20 53 57 31 3d | 2d 31 3a f2 4d 69 6e 73 |... SW1=|-1:.Mins|
|000001d0| 65 63 3a 4c 4f 4e 47 3d | 58 0d 00 8c 30 20 e8 22 |ec:LONG=|X...0 ."|
|000001e0| 47 65 6f 67 72 61 70 68 | 69 63 61 6c 20 6c 61 74 |Geograph|ical lat|
|000001f0| 69 74 75 64 65 20 20 20 | 28 44 2c 4d 2c 53 29 22 |itude   |(D,M,S)"|
|00000200| 3b 58 44 2c 58 4d 2c 58 | 53 0d 00 96 18 20 f2 4d |;XD,XM,X|S.... .M|
|00000210| 69 6e 73 65 63 3a 50 48 | 49 3d a4 52 41 44 28 58 |insec:PH|I=.RAD(X|
|00000220| 29 0d 00 a0 25 20 e8 22 | 48 65 69 67 68 74 20 61 |)...% ."|Height a|
|00000230| 62 6f 76 65 20 73 65 61 | 2d 6c 65 76 65 6c 20 28 |bove sea|-level (|
|00000240| 6d 29 22 3b 48 54 0d 00 | aa 12 20 48 54 3d 48 54 |m)";HT..|.. HT=HT|
|00000250| 2f 36 33 37 38 31 34 30 | 0d 00 b4 06 20 f1 0d 00 |/6378140|.... ...|
|00000260| be 16 20 e7 20 46 4c 41 | 47 28 33 29 3d 31 20 8c |.. . FLA|G(3)=1 .|
|00000270| 8d 64 7a 40 0d 00 c8 24 | 20 e8 22 44 61 74 65 20 |.dz@...$| ."Date |
|00000280| 20 20 20 20 20 20 20 28 | 44 2c 4d 2c 59 29 22 3b |       (|D,M,Y)";|
|00000290| 44 59 2c 4d 4e 2c 59 52 | 0d 00 d2 24 20 e8 22 2e |DY,MN,YR|...$ .".|
|000002a0| 2e 2e 61 6e 64 20 74 69 | 6d 65 20 28 48 2c 4d 2c |..and ti|me (H,M,|
|000002b0| 53 29 22 3b 58 44 2c 58 | 4d 2c 58 53 0d 00 dc 19 |S)";XD,X|M,XS....|
|000002c0| 20 53 57 31 3d 2d 31 3a | f2 4d 69 6e 73 65 63 3a | SW1=-1:|.Minsec:|
|000002d0| 54 49 4d 3d 58 0d 00 e6 | 19 20 53 57 32 3d 31 3a |TIM=X...|. SW2=1:|
|000002e0| f2 47 74 69 6d 65 3a 47 | 53 54 3d 47 54 4d 0d 00 |.Gtime:G|ST=GTM..|
|000002f0| f0 06 20 f1 0d 00 fa 0a | 20 53 57 36 3d 31 0d 01 |.. .....| SW6=1..|
|00000300| 04 22 20 e8 22 54 72 75 | 65 20 74 6f 20 61 70 70 |." ."Tru|e to app|
|00000310| 61 72 65 6e 74 20 28 59 | 2f 4e 29 22 3b 41 4e 24 |arent (Y|/N)";AN$|
|00000320| 0d 01 0e 14 20 e7 20 41 | 4e 24 3d 22 59 22 20 8c |.... . A|N$="Y" .|
|00000330| 8d 54 76 41 0d 01 18 0b | 20 53 57 36 3d 2d 31 0d |.TvA....| SW6=-1.|
|00000340| 01 22 22 20 e8 22 41 70 | 70 61 72 65 6e 74 20 74 |."" ."Ap|parent t|
|00000350| 6f 20 74 72 75 65 20 28 | 59 2f 4e 29 22 3b 41 4e |o true (|Y/N)";AN|
|00000360| 24 0d 01 2c 14 20 e7 20 | 41 4e 24 3d 22 4e 22 20 |$..,. . |AN$="N" |
|00000370| 8c 8d 64 42 41 0d 01 36 | 06 20 f1 0d 01 40 28 20 |..dBA..6|. ...@( |
|00000380| e8 22 52 69 67 68 74 20 | 61 73 63 65 6e 73 69 6f |."Right |ascensio|
|00000390| 6e 20 28 48 2c 4d 2c 53 | 29 22 3b 58 44 2c 58 4d |n (H,M,S|)";XD,XM|
|000003a0| 2c 58 53 0d 01 4a 1a 20 | 53 57 31 3d 2d 31 3a f2 |,XS..J. |SW1=-1:.|
|000003b0| 4d 69 6e 73 65 63 3a f2 | 48 72 61 6e 67 0d 01 54 |Minsec:.|Hrang..T|
|000003c0| 28 20 e8 22 44 65 63 6c | 69 6e 61 74 69 6f 6e 20 |( ."Decl|ination |
|000003d0| 20 20 20 20 28 44 2c 4d | 2c 53 29 22 3b 58 44 2c |    (D,M|,S)";XD,|
|000003e0| 58 4d 2c 58 53 0d 01 5e | 16 20 f2 4d 69 6e 73 65 |XM,XS..^|. .Minse|
|000003f0| 63 3a 59 3d a4 52 41 44 | 28 58 29 0d 01 68 28 20 |c:Y=.RAD|(X)..h( |
|00000400| e8 22 45 71 75 2e 20 68 | 6f 72 2e 20 70 61 72 6c |."Equ. h|or. parl|
|00000410| 78 20 28 44 2c 4d 2c 53 | 29 22 3b 58 44 2c 58 4d |x (D,M,S|)";XD,XM|
|00000420| 2c 58 53 0d 01 72 18 20 | f2 4d 69 6e 73 65 63 3a |,XS..r. |.Minsec:|
|00000430| 45 48 50 3d a4 52 41 44 | 28 58 29 0d 01 7c 1b 20 |EHP=.RAD|(X)..|. |
|00000440| 58 3d a4 52 41 44 28 50 | 29 2a 31 35 3a f2 50 61 |X=.RAD(P|)*15:.Pa|
|00000450| 72 61 6c 6c 61 78 0d 01 | 86 18 20 58 3d a4 44 45 |rallax..|.. X=.DE|
|00000460| 47 28 50 29 2f 31 35 3a | f2 48 72 61 6e 67 0d 01 |G(P)/15:|.Hrang..|
|00000470| 90 06 20 f1 0d 01 9a 16 | 20 58 3d 50 3a 53 57 31 |.. .....| X=P:SW1|
|00000480| 3d 31 3a f2 4d 69 6e 73 | 65 63 0d 01 a4 30 20 f1 |=1:.Mins|ec...0 .|
|00000490| 22 43 6f 72 72 65 63 74 | 65 64 20 52 41 20 20 28 |"Correct|ed RA  (|
|000004a0| 48 2c 4d 2c 53 29 3a 20 | 22 3b 58 44 3b 22 20 22 |H,M,S): |";XD;" "|
|000004b0| 3b 58 4d 3b 22 20 22 3b | 58 53 0d 01 ae 16 20 58 |;XM;" ";|XS.... X|
|000004c0| 3d a4 44 45 47 28 51 29 | 3a f2 4d 69 6e 73 65 63 |=.DEG(Q)|:.Minsec|
|000004d0| 0d 01 b8 33 20 f1 22 43 | 6f 72 72 65 63 74 65 64 |...3 ."C|orrected|
|000004e0| 20 64 65 63 2e 28 44 2c | 4d 2c 53 29 3a 20 22 3b | dec.(D,|M,S): ";|
|000004f0| 53 24 3b 58 44 3b 22 20 | 22 3b 58 4d 3b 22 20 22 |S$;XD;" |";XM;" "|
|00000500| 3b 58 53 0d 01 c2 06 20 | f1 0d 01 cc 17 20 e8 22 |;XS.... |..... ."|
|00000510| 41 67 61 69 6e 20 28 59 | 2f 4e 29 22 3b 41 4e 24 |Again (Y|/N)";AN$|
|00000520| 0d 01 d6 10 20 e7 20 41 | 4e 24 3d 22 4e 22 20 e0 |.... . A|N$="N" .|
|00000530| 0d 01 e0 1b 20 e8 22 4e | 65 77 20 70 6c 61 63 65 |.... ."N|ew place|
|00000540| 20 28 59 2f 4e 29 22 3b | 41 4e 24 0d 01 ea 1b 20 | (Y/N)";|AN$.... |
|00000550| e7 20 41 4e 24 3d 22 59 | 22 20 8c 20 46 4c 41 47 |. AN$="Y|" . FLAG|
|00000560| 28 31 31 29 3d 30 0d 01 | f4 22 20 e8 22 6e 65 77 |(11)=0..|." ."new|
|00000570| 20 64 61 74 65 20 6f 72 | 20 74 69 6d 65 20 28 59 | date or| time (Y|
|00000580| 2f 4e 29 22 3b 41 4e 24 | 0d 01 fe 1a 20 e7 20 41 |/N)";AN$|.... . A|
|00000590| 4e 24 3d 22 59 22 20 8c | 20 46 4c 41 47 28 33 29 |N$="Y" .| FLAG(3)|
|000005a0| 3d 30 0d 02 08 0a 20 e5 | 8d 44 64 40 0d 02 12 06 |=0.... .|.Dd@....|
|000005b0| 20 3a 0d 02 1c 0d 20 dd | f2 4d 69 6e 73 65 63 0d | :.... .|.Minsec.|
|000005c0| 02 26 1d 20 e7 20 53 57 | 31 3d 31 20 f2 4d 69 6e |.&. . SW|1=1 .Min|
|000005d0| 73 65 63 5f 49 6e 74 65 | 67 65 72 73 0d 02 30 1d |sec_Inte|gers..0.|
|000005e0| 20 e7 20 53 57 31 3d 2d | 31 20 f2 4d 69 6e 73 65 | . SW1=-|1 .Minse|
|000005f0| 63 5f 44 65 63 69 6d 61 | 6c 0d 02 3a 06 20 e1 0d |c_Decima|l..:. ..|
|00000600| 02 44 06 20 3a 0d 02 4e | 16 20 dd f2 4d 69 6e 73 |.D. :..N|. ..Mins|
|00000610| 65 63 5f 49 6e 74 65 67 | 65 72 73 0d 02 58 1d 20 |ec_Integ|ers..X. |
|00000620| 53 4e 3d b4 28 58 29 3a | 58 50 3d 94 28 58 29 3a |SN=.(X):|XP=.(X):|
|00000630| 58 44 3d a8 28 58 50 29 | 0d 02 62 19 20 41 3d 28 |XD=.(XP)|..b. A=(|
|00000640| 58 50 2d 58 44 29 2a 36 | 30 3a 58 4d 3d a8 28 41 |XP-XD)*6|0:XM=.(A|
|00000650| 29 0d 02 6c 1c 20 58 53 | 3d a8 28 28 41 2d 58 4d |)..l. XS|=.((A-XM|
|00000660| 29 2a 36 30 30 2b 30 2e | 35 29 2f 31 30 0d 02 76 |)*600+0.|5)/10..v|
|00000670| 0b 20 53 24 3d 22 2b 22 | 0d 02 80 16 20 e7 20 53 |. S$="+"|.... . S|
|00000680| 4e 3d 2d 31 20 20 8c 20 | 53 24 3d 22 2d 22 0d 02 |N=-1  . |S$="-"..|
|00000690| 8a 06 20 e1 0d 02 94 06 | 20 3a 0d 02 9e 15 20 dd |.. .....| :.... .|
|000006a0| f2 4d 69 6e 73 65 63 5f | 44 65 63 69 6d 61 6c 0d |.Minsec_|Decimal.|
|000006b0| 02 a8 0a 20 53 4e 3d 2b | 31 0d 02 b2 21 20 e7 20 |... SN=+|1...! . |
|000006c0| 58 44 3c 30 20 84 20 58 | 4d 3c 30 20 84 20 58 53 |XD<0 . X|M<0 . XS|
|000006d0| 3c 30 20 8c 20 53 4e 3d | 2d 31 0d 02 bc 22 20 58 |<0 . SN=|-1..." X|
|000006e0| 44 31 3d 94 28 58 44 29 | 3a 58 4d 31 3d 94 28 58 |D1=.(XD)|:XM1=.(X|
|000006f0| 4d 29 3a 58 53 31 3d 94 | 28 58 53 29 0d 02 c6 23 |M):XS1=.|(XS)...#|
|00000700| 20 58 3d 28 28 28 28 58 | 53 31 2f 36 30 29 2b 58 | X=((((X|S1/60)+X|
|00000710| 4d 31 29 2f 36 30 29 2b | 58 44 31 29 2a 53 4e 0d |M1)/60)+|XD1)*SN.|
|00000720| 02 d0 06 20 e1 0d 02 da | 06 20 3a 0d 02 e4 0d 20 |... ....|. :.... |
|00000730| dd f2 4a 75 6c 64 61 79 | 0d 02 ee 12 20 e7 20 46 |..Julday|.... . F|
|00000740| 4c 41 47 28 31 29 3d 31 | 20 e1 0d 02 f8 20 20 4d |LAG(1)=1| ....  M|
|00000750| 4e 31 3d 4d 4e 3a 59 52 | 31 3d 59 52 3a 46 4c 41 |N1=MN:YR|1=YR:FLA|
|00000760| 47 28 31 29 3d 31 3a 42 | 3d 30 0d 03 02 15 20 e7 |G(1)=1:B|=0.... .|
|00000770| 20 59 52 31 3c 30 20 8c | 20 59 52 31 2b 3d 31 0d | YR1<0 .| YR1+=1.|
|00000780| 03 0c 1c 20 e7 20 4d 4e | 3c 33 20 8c 20 4d 4e 31 |... . MN|<3 . MN1|
|00000790| 2b 3d 31 32 3a 59 52 31 | 2d 3d 31 0d 03 16 15 20 |+=12:YR1|-=1.... |
|000007a0| e7 20 59 52 3c 31 35 38 | 32 20 8c 20 8d 54 7e 43 |. YR<158|2 . .T~C|
|000007b0| 0d 03 20 1d 20 e7 20 59 | 52 3d 31 35 38 32 20 80 |.. . . Y|R=1582 .|
|000007c0| 20 4d 4e 3c 31 30 20 8c | 20 8d 54 7e 43 0d 03 2a | MN<10 .| .T~C..*|
|000007d0| 25 20 e7 20 59 52 3d 31 | 35 38 32 20 80 20 4d 4e |% . YR=1|582 . MN|
|000007e0| 3d 31 30 20 80 20 44 59 | 3c 31 35 20 8c 20 8d 54 |=10 . DY|<15 . .T|
|000007f0| 7e 43 0d 03 34 1e 20 41 | 3d a8 28 59 52 31 2f 31 |~C..4. A|=.(YR1/1|
|00000800| 30 30 29 3a 42 3d 32 2d | 41 2b a8 28 41 2f 34 29 |00):B=2-|A+.(A/4)|
|00000810| 0d 03 3e 13 20 e7 20 59 | 52 31 3c 30 20 8c 20 8d |..>. . Y|R1<0 . .|
|00000820| 44 52 43 0d 03 48 22 20 | 43 3d a8 28 33 36 35 2e |DRC..H" |C=.(365.|
|00000830| 32 35 2a 59 52 31 29 2d | 36 39 34 30 32 35 3a e5 |25*YR1)-|694025:.|
|00000840| 20 8d 44 5c 43 0d 03 52 | 25 20 43 3d a4 49 54 47 | .D\C..R|% C=.ITG|
|00000850| 28 28 33 36 35 2e 32 35 | 2a 59 52 31 29 2d 30 2e |((365.25|*YR1)-0.|
|00000860| 37 35 29 2d 36 39 34 30 | 32 35 0d 03 5c 19 20 44 |75)-6940|25..\. D|
|00000870| 3d a8 28 33 30 2e 36 30 | 30 31 2a 28 4d 4e 31 2b |=.(30.60|01*(MN1+|
|00000880| 31 29 29 0d 03 66 15 20 | 44 4a 44 3d 42 2b 43 2b |1))..f. |DJD=B+C+|
|00000890| 44 2b 44 59 2d 30 2e 35 | 0d 03 70 06 20 e1 0d 03 |D+DY-0.5|..p. ...|
|000008a0| 7a 06 20 3a 0d 03 84 0c | 20 dd f2 47 74 69 6d 65 |z. :....| ..Gtime|
|000008b0| 0d 03 8e 17 20 e7 20 46 | 4c 41 47 28 33 29 3d 31 |.... . F|LAG(3)=1|
|000008c0| 20 8c 20 8d 64 5e 43 0d | 03 98 1c 20 58 4d 4e 3d | . .d^C.|... XMN=|
|000008d0| 4d 4e 3a 58 44 59 3d 44 | 59 3a 46 4c 41 47 28 33 |MN:XDY=D|Y:FLAG(3|
|000008e0| 29 3d 31 0d 03 a2 1f 20 | 46 4c 41 47 28 31 29 3d |)=1.... |FLAG(1)=|
|000008f0| 30 3a f2 4a 75 6c 64 61 | 79 3a 58 44 4a 44 3d 44 |0:.Julda|y:XDJD=D|
|00000900| 4a 44 0d 03 ac 18 20 4d | 4e 3d 31 3a 44 59 3d 30 |JD.... M|N=1:DY=0|
|00000910| 3a 46 4c 41 47 28 31 29 | 3d 30 0d 03 b6 18 20 f2 |:FLAG(1)|=0.... .|
|00000920| 4a 75 6c 64 61 79 3a 54 | 3d 44 4a 44 2f 33 36 35 |Julday:T|=DJD/365|
|00000930| 32 35 0d 03 c0 2b 20 52 | 3d 36 2e 36 34 36 30 36 |25...+ R|=6.64606|
|00000940| 35 36 2b 28 35 2e 31 32 | 36 32 45 2d 32 2b 28 54 |56+(5.12|62E-2+(T|
|00000950| 2a 32 2e 35 38 31 45 2d | 35 29 29 2a 54 0d 03 ca |*2.581E-|5))*T...|
|00000960| 2a 20 52 31 3d 32 34 30 | 30 2a 28 54 2d 28 28 59 |* R1=240|0*(T-((Y|
|00000970| 52 2d 31 39 30 30 29 2f | 31 30 30 29 29 3a 42 3d |R-1900)/|100)):B=|
|00000980| 32 34 2d 52 2d 52 31 0d | 03 d4 21 20 54 30 3d 28 |24-R-R1.|..! T0=(|
|00000990| 28 58 44 4a 44 2d 44 4a | 44 29 2a 36 2e 35 37 30 |(XDJD-DJ|D)*6.570|
|000009a0| 39 38 45 2d 32 29 2d 42 | 0d 03 de 12 20 e7 20 53 |98E-2)-B|.... . S|
|000009b0| 57 32 3d 31 20 8c 8d 54 | 50 44 0d 03 e8 14 20 e7 |W2=1 ..T|PD.... .|
|000009c0| 20 54 30 3c 30 20 8c 20 | 54 30 2b 3d 32 34 0d 03 | T0<0 . |T0+=24..|
|000009d0| f2 0f 20 47 54 4d 3d 54 | 49 4d 2d 54 30 0d 03 fc |.. GTM=T|IM-T0...|
|000009e0| 16 20 e7 20 47 54 4d 3c | 30 20 8c 20 47 54 4d 2b |. . GTM<|0 . GTM+|
|000009f0| 3d 32 34 0d 04 06 22 20 | 47 54 4d 3d 47 54 4d 2a |=24..." |GTM=GTM*|
|00000a00| 39 2e 39 37 32 36 39 35 | 36 37 37 45 2d 31 3a e5 |9.972695|677E-1:.|
|00000a10| 20 8d 54 6e 44 0d 04 10 | 1d 20 47 54 4d 3d 28 54 | .TnD...|. GTM=(T|
|00000a20| 49 4d 2a 31 2e 30 30 32 | 37 33 37 39 30 38 29 2b |IM*1.002|737908)+|
|00000a30| 54 30 0d 04 1a 17 20 e7 | 20 47 54 4d 3e 32 34 20 |T0.... .| GTM>24 |
|00000a40| 8c 20 47 54 4d 2d 3d 32 | 34 0d 04 24 16 20 e7 20 |. GTM-=2|4..$. . |
|00000a50| 47 54 4d 3c 30 20 8c 20 | 47 54 4d 2b 3d 32 34 0d |GTM<0 . |GTM+=24.|
|00000a60| 04 2e 18 20 58 3d 47 54 | 4d 3a 53 57 31 3d 31 3a |... X=GT|M:SW1=1:|
|00000a70| f2 4d 69 6e 73 65 63 0d | 04 38 16 20 48 53 3d 58 |.Minsec.|.8. HS=X|
|00000a80| 44 3a 4d 53 3d 58 4d 3a | 53 53 3d 58 53 0d 04 42 |D:MS=XM:|SS=XS..B|
|00000a90| 1b 20 4d 4e 3d 58 4d 4e | 3a 44 59 3d 58 44 59 3a |. MN=XMN|:DY=XDY:|
|00000aa0| 44 4a 44 3d 58 44 4a 44 | 0d 04 4c 06 20 e1 0d 04 |DJD=XDJD|..L. ...|
|00000ab0| 56 06 20 3a 0d 04 60 0c | 20 dd f2 48 72 61 6e 67 |V. :..`.| ..Hrang|
|00000ac0| 0d 04 6a 16 20 4c 53 54 | 3d 47 53 54 2b 28 4c 4f |..j. LST|=GST+(LO|
|00000ad0| 4e 47 2f 31 35 29 0d 04 | 74 1a 20 e7 20 4c 53 54 |NG/15)..|t. . LST|
|00000ae0| 3e 32 34 20 8c 20 4c 53 | 54 3d 4c 53 54 2d 32 34 |>24 . LS|T=LST-24|
|00000af0| 0d 04 7e 19 20 e7 20 4c | 53 54 3c 30 20 8c 20 4c |..~. . L|ST<0 . L|
|00000b00| 53 54 3d 4c 53 54 2b 32 | 34 0d 04 88 0c 20 50 3d |ST=LST+2|4.... P=|
|00000b10| 4c 53 54 2d 58 0d 04 92 | 13 20 e7 20 50 3c 30 20 |LST-X...|. . P<0 |
|00000b20| 8c 20 50 3d 50 2b 32 34 | 0d 04 9c 06 20 e1 0d 04 |. P=P+24|.... ...|
|00000b30| a6 06 20 3a 0d 04 b0 0f | 20 dd f2 50 61 72 61 6c |.. :....| ..Paral|
|00000b40| 6c 61 78 0d 04 ba 18 20 | e7 20 46 4c 41 47 28 31 |lax.... |. FLAG(1|
|00000b50| 31 29 3d 31 20 8c 20 8d | 64 76 44 0d 04 c4 1c 20 |1)=1 . .|dvD.... |
|00000b60| 43 50 48 49 3d 9b 28 50 | 48 49 29 3a 53 50 48 49 |CPHI=.(P|HI):SPHI|
|00000b70| 3d b5 28 50 48 49 29 0d | 04 ce 1e 20 55 3d 99 28 |=.(PHI).|... U=.(|
|00000b80| 39 2e 39 36 36 34 37 45 | 2d 31 2a 53 50 48 49 2f |9.96647E|-1*SPHI/|
|00000b90| 43 50 48 49 29 0d 04 d8 | 1f 20 43 55 3d 9b 28 55 |CPHI)...|. CU=.(U|
|00000ba0| 29 3a 53 55 3d b5 28 55 | 29 3a 46 4c 41 47 28 31 |):SU=.(U|):FLAG(1|
|00000bb0| 31 29 3d 31 0d 04 e2 22 | 20 52 53 50 3d 28 39 2e |1)=1..."| RSP=(9.|
|00000bc0| 39 36 36 34 37 45 2d 31 | 2a 53 55 29 2b 28 48 54 |96647E-1|*SU)+(HT|
|00000bd0| 2a 53 50 48 49 29 0d 04 | ec 15 20 52 43 50 3d 43 |*SPHI)..|.. RCP=C|
|00000be0| 55 2b 28 48 54 2a 43 50 | 48 49 29 0d 04 f6 10 20 |U+(HT*CP|HI).... |
|00000bf0| 52 50 3d 31 2f b5 28 45 | 48 50 29 0d 05 00 19 20 |RP=1/.(E|HP).... |
|00000c00| e7 20 53 57 36 3d 2d 31 | 20 f2 41 70 70 61 72 65 |. SW6=-1| .Appare|
|00000c10| 6e 74 3a e1 0d 05 0a 0c | 20 f2 50 72 6c 6c 61 78 |nt:.....| .Prllax|
|00000c20| 0d 05 14 06 20 e1 0d 05 | 1e 06 20 3a 0d 05 28 0f |.... ...|.. :..(.|
|00000c30| 20 dd f2 41 70 70 61 72 | 65 6e 74 0d 05 32 1a 20 | ..Appar|ent..2. |
|00000c40| 58 31 3d 58 3a 59 31 3d | 59 3a 44 50 31 3d 30 3a |X1=X:Y1=|Y:DP1=0:|
|00000c50| 44 51 31 3d 30 0d 05 3c | 1c 20 f2 50 72 6c 6c 61 |DQ1=0..<|. .Prlla|
|00000c60| 78 3a 44 50 32 3d 50 2d | 58 3a 44 51 32 3d 51 2d |x:DP2=P-|X:DQ2=Q-|
|00000c70| 59 0d 05 46 32 20 e7 20 | 28 94 28 44 50 32 2d 44 |Y..F2 . |(.(DP2-D|
|00000c80| 50 31 29 3c 31 45 2d 36 | 29 20 80 20 28 94 28 44 |P1)<1E-6|) . (.(D|
|00000c90| 51 32 2d 44 51 31 29 3c | 31 45 2d 36 29 20 8c 8d |Q2-DQ1)<|1E-6) ..|
|00000ca0| 44 64 45 0d 05 50 16 20 | 58 3d 58 31 2d 44 50 32 |DdE..P. |X=X1-DP2|
|00000cb0| 3a 59 3d 59 31 2d 44 51 | 32 0d 05 5a 1b 20 44 50 |:Y=Y1-DQ|2..Z. DP|
|00000cc0| 31 3d 44 50 32 3a 44 51 | 31 3d 44 51 32 3a e5 20 |1=DP2:DQ|1=DQ2:. |
|00000cd0| 8d 54 7c 45 0d 05 64 16 | 20 50 3d 58 31 2d 44 50 |.T|E..d.| P=X1-DP|
|00000ce0| 32 3a 51 3d 59 31 2d 44 | 51 32 0d 05 6e 10 20 58 |2:Q=Y1-D|Q2..n. X|
|00000cf0| 3d 58 31 3a 59 3d 59 31 | 3a e1 0d 05 78 06 20 3a |=X1:Y=Y1|:...x. :|
|00000d00| 0d 05 82 0d 20 dd f2 50 | 72 6c 6c 61 78 0d 05 8c |.... ..P|rllax...|
|00000d10| 1c 20 43 58 3d 9b 28 58 | 29 3a 53 59 3d b5 28 59 |. CX=.(X|):SY=.(Y|
|00000d20| 29 3a 43 59 3d 9b 28 59 | 29 0d 05 96 26 20 54 44 |):CY=.(Y|)...& TD|
|00000d30| 58 3d 28 52 43 50 2a b5 | 28 58 29 29 2f 28 28 52 |X=(RCP*.|(X))/((R|
|00000d40| 50 2a 43 59 29 2d 28 52 | 43 50 2a 43 58 29 29 0d |P*CY)-(R|CP*CX)).|
|00000d50| 05 a0 1d 20 44 58 3d 99 | 28 54 44 58 29 3a 50 3d |... DX=.|(TDX):P=|
|00000d60| 58 2b 44 58 3a 43 50 3d | 9b 28 50 29 0d 05 aa 16 |X+DX:CP=|.(P)....|
|00000d70| 20 e7 20 50 3e 54 50 49 | 20 8c 20 50 3d 50 2d 54 | . P>TPI| . P=P-T|
|00000d80| 50 49 0d 05 b4 14 20 e7 | 20 50 3c 30 20 8c 20 50 |PI.... .| P<0 . P|
|00000d90| 3d 50 2b 54 50 49 0d 05 | be 27 20 51 3d 99 28 43 |=P+TPI..|.' Q=.(C|
|00000da0| 50 2a 28 52 50 2a 53 59 | 2d 52 53 50 29 2f 28 52 |P*(RP*SY|-RSP)/(R|
|00000db0| 50 2a 43 59 2a 43 58 2d | 52 43 50 29 29 0d 05 c8 |P*CY*CX-|RCP))...|
|00000dc0| 06 20 e1 0d 05 d2 06 20 | 3a 0d 05 dc 3d 20 f4 20 |. ..... |:...= . |
|00000dd0| 41 63 6b 6e 6f 77 6c 65 | 64 67 65 6d 65 6e 74 3a |Acknowle|dgement:|
|00000de0| 20 41 53 54 52 4f 4e 4f | 4d 59 20 57 49 54 48 20 | ASTRONO|MY WITH |
|00000df0| 59 4f 55 52 20 50 45 52 | 53 4f 4e 41 4c 20 43 4f |YOUR PER|SONAL CO|
|00000e00| 4d 50 55 54 45 52 0d 05 | e6 2b 20 f4 20 20 20 20 |MPUTER..|.+ .    |
|00000e10| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 50 65 |        |      Pe|
|00000e20| 74 65 72 20 44 75 66 66 | 65 74 74 2d 53 6d 69 74 |ter Duff|ett-Smit|
|00000e30| 68 0d 05 f0 38 20 f4 20 | 20 20 20 20 20 20 20 20 |h...8 . |        |
|00000e40| 20 20 20 20 20 20 20 20 | 20 43 61 6d 62 72 69 64 |        | Cambrid|
|00000e50| 67 65 20 55 6e 69 76 65 | 72 73 69 74 79 20 50 72 |ge Unive|rsity Pr|
|00000e60| 65 73 73 20 20 31 39 38 | 35 0d 05 fa 2d 20 f4 20 |ess  198|5...- . |
|00000e70| 41 64 61 70 74 65 64 20 | 62 79 3a 20 20 20 20 20 |Adapted |by:     |
|00000e80| 20 44 41 41 46 20 44 75 | 6c 77 69 63 68 20 44 65 | DAAF Du|lwich De|
|00000e90| 63 20 31 39 38 38 0d ff |                         |c 1988..|        |
+--------+-------------------------+-------------------------+--------+--------+